home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / S / menus.xrc < prev    next >
Text File  |  1995-08-23  |  8KB  |  270 lines
  1. # $VER: menus.xrc 1.2 (23 Aug 1995)
  2.  
  3. setmacro m+ 2 (menuadd \$menu \$arg1 \$arg2)
  4. setmacro ms+ 2 (menuadd \$menu (\$submenu^S\$arg1) \$arg2)
  5. setmacro m- 0 (menubar \$menu)
  6. setmacro ms- 0 (menusubbar \$menu \$submenu)
  7. setmacro mc 3 (menucheck \$menu \$arg1 \$arg3 if (\$arg2) (msc \\\$arg1 1))
  8. setmacro msc 2 (menusetcheck \$menu \$arg1 \$arg2)
  9.  
  10. menuoff
  11. menuclear
  12.  
  13. set menu Project
  14. set submenu (About XES)
  15. ms+ $($VER:) null
  16. ms+ (Copyright © 1995 Fergus Duniho) null
  17. ms+ (fdnh@troi.cc.rochester.edu) null
  18. ms-
  19. ms+ (If you use XES, please email me your) null
  20. ms+ (comments and suggestions.  That is) null
  21. ms+ (the only price for using XES!) null
  22.  
  23. m+ (About XDME) about
  24.  
  25. set submenu Load
  26. ms+ (Replace ...^AO) (rx1 XES:Rexx/FileOp Replace)
  27. ms+ (New     ...^AN) (rx1 XES:Rexx/MultiFiles Load)
  28. ms+ (Insert c-x i) x-i
  29. ms+ (Diary  c-x d) x-d
  30.  
  31. set submenu Save
  32. ms+ (Save    ... c-x c-s^AS) cx-s
  33. ms+ (Save As ... c-x c-w^AW) cx-w
  34. ms+ (Block   ... c-x c-b) cx-b
  35. ms+ (Preferences) (rx XES:Rexx/SavePrefs)
  36.  
  37. m+ (Print ...) gtb-print
  38. m+ Compile (rx XES:Rexx/Compile)
  39.  
  40. set submenu Quit
  41. ms+ (Close Window c-x k) x-k
  42. ms+ (Quit All     c-x c-c^AQ) cx-c
  43.  
  44. set menu Format
  45.  
  46. set submenu Reformat
  47. ms+ (Reformat ¶               a-f) a-f
  48. ms+ (Reformat Entire Document) (top while !b (xa-f first while !r downadd down))
  49. ms+ (Indent & Reformat Each ¶) (top a-0 while !b (firstnb split tab join reformat first while !r downadd down))
  50.  
  51. set submenu Justify
  52.  
  53. ms+ (Left Justify @ Column 1^A[) (ifelse cb (goto end while cb (justify left up) goto start) (justify left))
  54. ms+ (Left Justify @ Cursor^A@) (if !cb lineblock set m (\$colno) dec m indent b -255 indent b (\$m) unblock)
  55. ms+ (Right Justify @ Margin^A]) (ifelse cb (goto end while cb (justify right up) goto start) (justify right))
  56. ms+ (Center^A=) (ifelse cb (goto end while cb (justify center up) goto start) (justify center))
  57. ms+ (Justify Full^AJ) (ifelse cb (goto end first while cb (justify full up if r (up up))) (justify full))
  58. ms+ (Unjustify^A-) (ifelse cb (goto end while cb (unjustify up) goto start) unjustify)
  59. ms+ (Indent N Spaces^AI) (title (Enter the number of spaces to indent.) escimm (set m ) indent b (\$m) unblock)
  60.  
  61. set submenu Spacing
  62. ms+ (Single Space^A1) single-space
  63. ms+ (Double Space^A2) double-space
  64.  
  65. set submenu Margins
  66. ms+ (Margins ...) gtb-margins
  67. ms+ (Margin Release      a-0) a-0
  68. ms+ (Set Indent Column   c-1) c-1
  69. ms+ (Set Left Margin     a-[) a-[
  70. ms+ (Set Right Margin    a-]) a-]
  71. ms+ (No Left Margin      a-=) a-=
  72.  
  73. set submenu Tabs
  74. ms+ (Set Tabstops) (set x (\$colno) dec x tabstop (\$x))
  75. ms+ (Enter Tabstops ...) (escimm (tabstop ))
  76.  
  77. set submenu Outline
  78. ms+ (Position Outline Heading) heading-indent
  79. ms+ (Position Roman Heading) roman-indent
  80. ms+ (Reformat Entire Outline) (top while !b (format-outline first while !l downadd down))
  81. ms+ (Left Shift Outline Block) (indent b -t)
  82. ms+ (Right Shift Outline Block) (indent b t)
  83. ms+ (Renumber Outline Block) (rx XES:Rexx/RenumberOutline title \$RS)
  84.  
  85. set menu Edit
  86. m+ (Cut^AX) cut-block
  87. m+ (Copy^AC) copy-block
  88. m+ (Paste^AV) clipins
  89. m+ (Delete^AD) delete-block
  90. m-
  91.  
  92. set submenu Regions
  93. ms+ (Mark   c-@) cs-2
  94. ms+ (Kill   c-w) c-w
  95. ms+ (Copy   a-w) a-w
  96. ms+ (Yank   c-y) c-y
  97. ms+ (Delete) delete-region
  98.  
  99. set submenu Rectangles
  100. ms+ (Copy   c-x r c) copy-rectangle
  101. ms+ (Kill   c-x r k) kill-rectangle
  102. ms+ (Delete c-x r d) delete-rectangle
  103. ms+ (Open   c-x r o) open-rectangle
  104. ms+ (Clear  c-x r e) clear-rectangle
  105. ms+ (Yank   c-x r y) yank-rectangle
  106.  
  107. set submenu Clipfiles
  108. ms+ (Change ...) reqclipfile
  109. ms+ (Cut    A-x) A-x
  110. ms+ (Copy   A-c) A-c
  111. ms+ (Paste  A-v) A-v
  112. ms+ (Append A-a) A-a
  113.  
  114. set submenu Blocking
  115. ms+ (Begin/End^AB) block
  116. ms+ (Unblock^AU) unblock
  117. ms+ (Push Block^A<) (push block)
  118. ms+ (Pop Block^A>) (pop block)
  119. ms+ (Region     a-b) block-region
  120. ms+ (All^AA) (bottom last block top first block)
  121. ms+ (Paragraph) block¶
  122. ms+ (Section) block§
  123.  
  124. set submenu (Line Blocks)
  125. ms+ (Copy^AK) (blocktype line bcopy)
  126. ms+ (Move^AM) (blocktype line bmove)
  127. ms+ (Sort) (bsave T:TEXT execute (C:FSort FROM T:TEXT TO T:TEXT) goto block bdelete insfile T:TEXT rx "Z=Delete('T:TEXT')")
  128.  
  129. set submenu (Vertical Blocks)
  130. ms+ (Open) (mark-block open-rectangle)
  131. ms+ (Clear) (mark-block clear-rectangle)
  132.  
  133. set submenu Insertion
  134. ms+ (Literal ...^AL) XES:Rexx/InsLit
  135. ms+ (ASCII ... a-a) a-a
  136. ms+ (Signature) (insfile S:.signature)
  137.  
  138. set submenu Lines
  139. ms+ (Undo^AZ) undo
  140. ms+ (Delete  a-nk.) a-nk.
  141. ms+ (Undelete  a-z) a-z
  142. ms+ (Insert  a-nk0) a-nk0
  143.  
  144. set submenu Case
  145. ms+ (UPCASE WORD     a-u) a-u
  146. ms+ (downcase word   a-l) a-l
  147. ms+ (Capitalize Word a-c) a-c
  148. ms+ (UPCASE REGION   c-x c-u) cx-u
  149. ms+ (downcase region c-x c-l) cx-l
  150.  
  151. set menu Search
  152. mc (Global?) $globalsearch (global \$itemcheck)
  153.  
  154. set submenu Find
  155. ms+ (Find ...^AF) (rx XES:Rexx/ReqFind)
  156. ms+ (Next        a-n) next
  157. ms+ (Prev        a-p) prev
  158. ms+ (Set Findstr c-f) c-f
  159.  
  160. set submenu Replace
  161. ms+ (Replace ...^AR) gtb-find
  162. ms+ (Replace     a-r) a-r
  163. ms+ (Next) (nextr)
  164. ms+ (Prev) (prevr)
  165. ms+ (Set Repstr  c-r) c-r
  166.  
  167. set menu Goto
  168. m+ (Window ...) gtb-windows
  169. m+ (Line ...^AG) (rx "C='goto' rtgetlong(,'Enter Line #','Goto Line',,'rtgl_min=0 rtgl_max=\$numlines'); C")
  170. m+ (Block Start) (goto start)
  171. m+ (Block End) (goto end)
  172.  
  173. set menu Settings
  174. m+ (Local Settings ...) gtb-local
  175.  
  176. m-
  177.  
  178. mc (Savetabs?) $savetabs (savetabs \$itemcheck)
  179. mc (Shortlines?) $shortlines (sline \$itemcheck)
  180. mc (Smartkeys?) $smartkeys (set smartkeys \$itemcheck)
  181. mc (AppIcon?) $appicon (spc appicon \$itemcheck)
  182.  
  183. m-
  184.  
  185. m+ (Pens ... ) gtb-pens
  186. m+ (Font ...^AT) arpfont
  187. m+ (Save Config) saveconfig
  188.  
  189. set submenu Blocktype
  190. ms+ (Line      c-x m b) Mx-b
  191. ms+ (Character c-x m n) Mx-n
  192. ms+ (Vertical  c-x m v) Mx-v
  193.  
  194. set submenu (Num. Keypad)
  195. ms+ (Numeric) keypad-numbers
  196. ms+ (Movement) keypad-move
  197.  
  198. set submenu (Major Modes)
  199. ms+ (Fundamental    c-x m f) Mx-f
  200. ms+ (Programming    c-x m p) Mx-p
  201. ms+ (ARexx          c-x m r) Mx-r
  202. ms+ (ANSI C / C++   c-x m c) Mx-c
  203. ms+ (K&R C          c-x m k) Mx-k
  204. ms+ (LISP           c-x m l) Mx-l
  205. ms+ (Text           c-x m t) Mx-t
  206. ms+ (HTML           c-x m h) Mx-h
  207. ms+ (AmigaGuide     c-x m a) Mx-a
  208. ms+ (Manual         c-x m m) Mx-m
  209. ms+ (Outline        c-x m o) Mx-o
  210. ms+ (Symbolic Logic c-x m s) Mx-s
  211.  
  212. set menu ANSI
  213. set submenu Style
  214. ms+ (Plain) ((^[[0m))
  215. ms+ (Bold) ((^[[1m))
  216. ms+ (Italics) ((^[[3m))
  217. ms+ (Underline) ((^[[4m))
  218. ms+ (Italicize Word) ((^[[3m) while c<>32 (col +1) (^[[0m))
  219.  
  220. set submenu Foreground
  221. ms+ (Color 0) ((^[[30m))
  222. ms+ (Color 1) ((^[[31m))
  223. ms+ (Color 2) ((^[[32m))
  224. ms+ (Color 3) ((^[[33m))
  225.  
  226. set submenu Background
  227. ms+ (Color 0) ((^[[40m))
  228. ms+ (Color 1) ((^[[41m))
  229. ms+ (Color 2) ((^[[42m))
  230. ms+ (Color 3) ((^[[43m))
  231.  
  232. set menu Misc
  233. set submenu Spelling
  234. ms+ (Check Spelling) spell-check
  235. ms+ (Guess at Words) gtb-guess
  236. ms+ (Select Dictionaries ...) (source XES:S/dict.xrc)
  237. ms+ (Interactive Spellchecking) (source XES:S/interspell.xrc)
  238. ms+ (Shut off Interactive) (execute (delete RAM:#?.(low|mix|ldx|mdx)) unmap spc unset DDIR)
  239.  
  240. set submenu Source
  241. ms+ (File) (reqfile (Source File ...) () (\$filename) source \$reqresult)
  242. ms+ (Block  c-s) c-s
  243.  
  244. set submenu Convert
  245. ms+ (NL -> NL/CR) (writeto t:text execute (addcr <t:text >t:text2) top block bottom block bdelete insfile t:text2)
  246. ms+ (NL/CR -> NL) (writeto t:text execute (remcr <t:text >t:text2) top block bottom block bdelete insfile t:text2)
  247. ms+ (// -> /* */) (autosplit off top repeat -1 (findr // /* last ` */'))
  248.  
  249. set submenu Info
  250. ms+ (General) (title ("\$filename" \$mode Mode xpk\$(method).library))
  251. ms+ (Display Time  c-2) c-2
  252. ms+ (Count Words  a-F3) a-f3
  253.  
  254. set menu Disk
  255. m+ (Make Directory   ...) (rx XES:Rexx/MkDir)
  256. m+ (Delete Files     ...) (rx1 XES:Rexx/MultiFiles Delete)
  257. m+ (Copy Files       ...) (rx1 XES:Rexx/MultiFiles Copy)
  258. m+ (Move Files       ...) (rx1 XES:Rexx/MultiFiles Move)
  259. m+ (Print Files      ...) (rx1 XES:Rexx/MultiFiles Print)
  260. m+ (Rake Files       ...) (rx1 XES:Rexx/MultiFiles Rake)
  261. m+ (Unpack Files     ...) (rx1 XES:Rexx/MultiFiles Unpack)
  262. m+ (Extract Archives ...) (rx1 XES:Rexx/MultiFiles Unarchive)
  263. m+ (View Archives    ...) (rx1 XES:Rexx/MultiFiles ViewArc)
  264. m+ (Run Programs     ...) (rx1 XES:Rexx/MultiFiles Run)
  265. m+ (Call ARexx Macro ...) (rx "GetFile(,,'XES:Rexx/',,'Call ARexx Macro',,'PATGAD',,,,'#?.rexx')")
  266.  
  267. unset menu
  268. unset submenu
  269. menuon
  270.